home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / update1a / frmip.frm < prev    next >
Text File  |  1999-07-26  |  4KB  |  132 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form frmIP 
  4.    Caption         =   "<Your Program Name Here> Personal IP Finder"
  5.    ClientHeight    =   2244
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   4080
  9.    ControlBox      =   0   'False
  10.    ForeColor       =   &H80000005&
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   2244
  13.    ScaleWidth      =   4080
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "&Try Again"
  17.       Height          =   408
  18.       Left            =   2640
  19.       TabIndex        =   3
  20.       Top             =   1680
  21.       Width           =   1332
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "&OK"
  25.       Default         =   -1  'True
  26.       Height          =   408
  27.       Left            =   1440
  28.       TabIndex        =   0
  29.       ToolTipText     =   "OK"
  30.       Top             =   1680
  31.       Width           =   1092
  32.    End
  33.    Begin MSWinsockLib.Winsock Winsock1 
  34.       Left            =   240
  35.       Top             =   360
  36.       _ExtentX        =   593
  37.       _ExtentY        =   593
  38.       _Version        =   393216
  39.    End
  40.    Begin VB.Label Label2 
  41.       BackColor       =   &H80000012&
  42.       Caption         =   "Remember: If it shows no IP Address try getting it again by hitting the Try Again Button. Thank You, Carroll Dearstone"
  43.       ForeColor       =   &H000000FF&
  44.       Height          =   612
  45.       Left            =   120
  46.       TabIndex        =   4
  47.       Top             =   960
  48.       Width           =   3852
  49.    End
  50.    Begin VB.Label StatusTxt 
  51.       BackColor       =   &H00FFFFFF&
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   10.2
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   252
  62.       Left            =   240
  63.       TabIndex        =   2
  64.       ToolTipText     =   "Status of midi file"
  65.       Top             =   480
  66.       Width           =   3612
  67.    End
  68.    Begin VB.Label Label1 
  69.       Caption         =   "IP Address:"
  70.       BeginProperty Font 
  71.          Name            =   "Arial"
  72.          Size            =   12
  73.          Charset         =   0
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   252
  80.       Left            =   360
  81.       TabIndex        =   1
  82.       Top             =   120
  83.       Width           =   1332
  84.    End
  85.    Begin VB.Line Line1 
  86.       X1              =   120
  87.       X2              =   120
  88.       Y1              =   240
  89.       Y2              =   840
  90.    End
  91.    Begin VB.Line Line2 
  92.       X1              =   120
  93.       X2              =   3960
  94.       Y1              =   840
  95.       Y2              =   840
  96.    End
  97.    Begin VB.Line Line3 
  98.       X1              =   120
  99.       X2              =   360
  100.       Y1              =   240
  101.       Y2              =   240
  102.    End
  103.    Begin VB.Line Line4 
  104.       X1              =   1200
  105.       X2              =   3960
  106.       Y1              =   240
  107.       Y2              =   240
  108.    End
  109.    Begin VB.Line Line5 
  110.       X1              =   3960
  111.       X2              =   3960
  112.       Y1              =   240
  113.       Y2              =   840
  114.    End
  115. End
  116. Attribute VB_Name = "frmIP"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Private Sub Command1_Click()
  122. Unload Me
  123. End Sub
  124.  
  125. Private Sub Command2_Click()
  126. StatusTxt.Caption = Winsock1.LocalIP
  127. End Sub
  128.  
  129. Private Sub Form_Load()
  130. StatusTxt.Caption = Winsock1.LocalIP
  131. End Sub
  132.